DebugNub.mesa 2-Sep-78 13;58:17 Page 



-- DebugNub.mesa; edited by Sandman August 15, 1978 2:40 PM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [BYTE], 
BFSDefs: FROM "bfsdefs" USING [MakeCFP], 
BootDefs: FROM "bootdefs" USING [GetSystemTable] , 
ControlDeFs: FROM "controldefs" USING [ 

ControlLink, FieldDescriptor, FrameHandle, GetReturnFrame, GetReturnLink, 

GlobalFrameHandle, Lreg, NullFrame, SD, SetReturnFrame , SetReturnLink, 

StateVector, SVPointer], 
CoreSwapDefs: FROM "coreswapdef s" USING [ 

BBHandle, callDP, DebugParameter , ExternalStateVector, Puntlnfo, 

PuntTable, startDP, SVPointer, SwapReason, UBBPointer, UserBreakBlock] , 
DiskDefs: FROM "diskdefs" USING [RealDA], 

FrameDefs: FROM "framedefs" USING [LockCode, UnlockCode, UnNew] . 
ImageDefs: FROM "imagedefs" USING [ 

AbortMesa, AddCleanupProcedure, AddFileRequest , Cleanupltem, CleanupMask, 

CleanupProcedure, FileRequest, PuntMesa, StopMesa, UserCleanupProc], 
KeyDefs: FROM "keydefs" USING [Keys], 

LoadStateDefs: FROM "loadstatedef s" USING [GetLoadState] , 
Mopcodes: FROM "mopcodes" USING [zRFS], 
NovaOps: FROM "novaops" USING [NovaJSR], 
NucleusDefs: FROM "nucleusdef s" USING [Wart], 
ProcessOefs; FROM "processdef s" USING [ 

Aborted, Disablelnterrupts, Enablelnterrupts] , 
SDDefs: FROM "sddefs" USING [sBreakBlock . sBreakBlockSize, sCallDebugger, 

sCoreSwap, sFirstFree, sinterrupt, sProcessBreakpoint, sUncaughtSignal] , 
SegmentDefs: FROM "segmentdef s" USING [ 

DeleteFileSegment, FileHandle, FileSegmentHandle, GetFileSegmentDA, 

LockFile. NewFileSegment, Read, ReleaseFile]; 

DEFINITIONS FROM CoreSwapDef s ; 

DebugNub: PROGRAM [user: PROGRAM] 

IMPORTS BFSDefs, BootDefs, DiskDefs, FrameDefs, ImageDefs, LoadStateDefs, 

NucleusDefs, ProcessDefs, SegmentDefs 
EXPORTS CoreSwapDefs SHARES BootDefs, SegmentDefs, ControlDefs « 

BEGIN 

FrameHandle: TYPE « ControlDefs . FrameHandle; 
SVPointer: TYPE « ControlDefs .SVPointer ; 

ProcessBreakpoint: PROCEDURE [s: SVPointer] =» 

BEGIN -- called by BRK trap handler in resident code 

inst: AltoDefs.BYTE; 

swap: BOOLEAN; 

IF -Swappable THEN BEGIN SwatBreak[s] ; RETURN END; 

[inst, swap] <- DoBreakpoint[s]; 

IF swap THEN 

BEGIN 

FrameDefs .LockCode[s .dest]; 

CoreSwap[breakpoint, s]; 

FrameDefs .UnlockCode[s.dest] ; 

END 
ELSE s.instbyte ^ inst; --replant the instruction and go on 
RETURN 
END; 

DoBreakpoint: PROCEDURE [s: SVPointer] RETURNS [AltoDefs.BYTE, BOOLEAN] » 
BEGIN OPEN ControlDefs; 
ubb: CoreSwapDef s .UBBPointer; 
bba: BBHandle = SD[SDOefs . sBreakBlock]; 
i: CARDINAL; 

1: FrameHandle <- s.dest; 
FOR i IN [0. .bba. length) DO 

ubb <- 6bba.blocks[i]; 

IF ubb. frame = l.accesslink AND ubb.pc « l.pc THEN 

IF TrueCondition[ubb, 1] THEN EXIT ELSE RETURN[ubb. inst, FALSE]; 

ENDLOOP; 
RETURN[0, TRUE]; 
END; 

TrueCondition: PROCEDURE [ubb: CoreSwapDef s .UBBPointer . base: POINTER] 
RETURNS [BOOLEAN] - 
BEGIN --decide whether to take the breakpoint 
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fd: ControlDefs.FieldDescriptor; 
locL, locR: POINTER; 
left, right: UNSPECIFIED; 
IF ubb.counterL THEN 

RETURN[{ubb.ptrL ^ ubb.ptrL + 1) ■ ubb.ptrR]; 
locL ^ IF ubb.localL THEN base+LOOPH0LE[ubb. ptrL, CARDINAL] ELSE ubb.ptrL; 
fd ^ [offset: 0, posn: ubb.posnL, size: ubb.sizeL]; 
left ^ ReadFie1d[1ocL, fd]; 
IF -ubb.immediateR THEN 

BEGIN 

fd ♦- [offset: 0, posn: ubb.posnR, size: ubb.sizeR]; 

locR 4- IF ubb.locaIR THEN base+LOOPHOLE[ubb . p trR, CARDINAL] ELSE ubb.ptrR; 

right <- ReadField[1ocR, fd]; 

END 
ELSE right <- ubb.ptrR; 
RETURN[SELECT ubb. relation FROM 
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ReadField: PROCEDURE [POINTER, ControlDefs.FieldDescriptor] 
RETURNS[UNSPECIFIED] = MACHINE CODE BEGIN Mopcodes . zRFS END; 

NumberBlocks: CARDINAL » 5; 

InitBreakBlocks: PROCEDURE - 
BEGIN OPEN ControlDefs; 

sd: POINTER TO ARRAY [0..0) OF UNSPECIFIED ^ SD; 
sd[SDDefs.sBreakBlock] ^ 0sd[SDDef s .sFirstFree]; 
sd[SDDefs.sBreakBlockSize] ♦- SIZE[UserBreakBlock]*NuniberBlocks+l; 
sd[SODefs.sFirstFree] «- 0; 
RETURN 
END; 

SwatBreak: PROCEDURE [s: CoreSwapDef s .SVPointer] - 
BEGIN OPEN ControlDefs. NovaOps; 
break: RECORD[a.b: WORD]; 
break <- [77400B, 1400B]; 
s.instbyte ^ NovaJSR[JSR, §break. 0]; 
RETURN 
END; 

Interrupt: PROCEDURE » 

BEGIN -- called by BRK trap handler in resident code 

state: ControlDefs .StateVector; 

state *- STATE; 

state, dest <- REGISTER[ControlDef s .Lreg]; 

CoreSwap[breakpoint, Estate]; 

END; 

Catcher: PROCEDURE [msg, signal: UNSPECIFIED, frame: FrameHandle] « 
BEGIN 

OPEN ControlDefs; 
SignallerGF: Global FrameHandle; 
state: StateVector; 
f: FrameHandle; 
state. stk[0] *■ msg ; 
state. stk[l] <- signal; 
state. stkptr ^ 0; 

-- the call stack below here is: Signaller, [Signaller,] offender 
f <- GetReturnFrame[]; 
SignallerGF <- f . accessl ink; 
state. dest ^ f <- f . returnl ink .frame; 

IF f.accesslink = SignallerGF THEN state. dest <- f. returnl ink; 
IF -Swappable THEN BEGIN SwatBreak[0state] ; RETURN END; 
BEGIN 

CoreSwap[uncaughtsignal . 8state 1 CAbort «> GOTO abort]; 
EXITS 

abort «> 

IF signal « ProcessDefs. Aborted THEN 
BEGIN 



DebugNub.mesa 2-Sep-78 13:58:17 Page 



BackStop[frame]; 
ERROR KillThisTurkey; 
END 
ELSE SIGNAL ProcessDefs .Aborted; 
END; 
RETURN 
END; 

Backstop: PROCEDURE [root: FrameHandle] » 
BEGIN OPEN ControlDefs; 

endProcess: ControlLink ^ root. return! ink; 
caller: PROCEDURE » LOOPHOLE[GetReturnLink[]] ; 
root. return! ink *- L00PH0LE[REGIStER[Lreg]3; 
SetReturnFrame[Nu1 1 Frame]; 
caner[l KillThisTurkey «> CONTINUE]; 
SetReturnLink[endProcess]; 
RETURN 
END; 

KillThisTurkey: SIGNAL - CODE; 

-- The core swapper 

Quit: SIGNAL = CODE; 

CantSwap: PUBLIC SIGNAL « CODE; 

CAbort: PUBLIC SIGNAL » CODE; 

DoSwap: PORT [POINTER TO ExternalStateVector] ; 

parmstring: STRING ♦- [40]; 

CoreSwap: PUBLIC PROCEDURE [why: SwapReason, sp: SVPointer] » 
BEGIN OPEN NovaOps; 

loadstate: SegmentDef s.FileSegmentHandle; 

e: ExternalStateVector; 

DP: DebugParameter; 

decode: PROCEDURE RETURNS [BOOLEAN] « 

BEGIN OPEN ControlDefs; -- decode the SwapReason 
f: Global FrameHandle; 
Isv: StateVector; 
SELECT e. reason FROM 

proceed, resume => RETURN[TRUE]; 
call «> 
BEGIN 

Isv <- LOOPHOLE[e. parameter, callDP].sv; 
Isv. source ^ REGISTER[Lreg] ; 
TRANSFER WITH Isv; 
Isv <- STATE; 

LOOPHOLE[e. parameter, canDP].sv <- Isv; 
why *- return; 
END; 
start «> 
BEGIN 

f <r LOOPHOLE[e. parameter, startDP]. frame; 

IF ~f. started THEN START LOOPHOLE[f, PROGRAM] ELSE RESTART f; 
why *- return; 
END; 
quit => SIGNAL Quit; 
kill => ImageDefs.AbortMesa[]; 
showscreen «> 
BEGIN 

UNTIL KeyDefs. Keys. Spares « down DO NULL ENDLOOP; 
why <- return; 
END; 
ENDCASE => 
BEGIN 

RETURN [TRUE]; 
END; 
RETURN [FALSE] 
END; 

-- Body of CoreSwap 

IF -Swappable THEN SIGNAL CantSwap; 

e. state ^ sp; 
e.drumFile <- MesaCoreFH; 
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DP. string <r parmstring; 

e. parameter <- 60P; 

e. tables <- BootDef s.GetSystemTable[] ; 

e. extension. loadstate ^ loadstate ^ LoadStateDefs.GetLoadState[]; 

e. loadstateCFA.f p ^ loadstate.f ile.f p; 

e.loadstateCFA.fa <- [page: loadstate. base, byte: 0. 

da: SegmentDefs.GetFileSegmentDA[ loadstate]]; 
e.lspages <- loadstate. pages ; 
e.fill ^ [0,0,0]; 

DO 

e. reason ^ why; 

ImageDefs.UserCleanupProc[OutLd I ANY => CONTINUE]; 
ProcessDefs.DisableInterrupts[]; 
DoSwap[0e]; 

Proces sDefs. Enable In terrupts[]; 
ImageDef s .UserCleanupProc[InLd]; 
BEGIN 
IF decode[ 

1 CAbort «> IF e.level>0 THEN BEGIN why <- return; CONTINUE END; 
Quit => GOTO abort] THEN EXIT 
EXITS abort «> SIGNAL CAbort; 
END; 
ENDLOOP; 

RETURN 
END; 
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-- initialization 

DebuggerFileRequest: short ImageDef s . FileRequest *- ImageDef s.FileRequest [ 

file: NIL, access: SegmentDef s.Read, link:, 

body: short[fill:, name: "MesaDebugger. "]]; 

CoreFileRequest : short ImageDef s . FileRequest ^ ImageDef s.FileRequest [ 
file: NIL, access: SegmentDef s .Read, link:, 
body: short[fill:, name: "MesaCore, "]]; 

SwatFileRequest: short ImageDef s.FileRequest <- ImageDef s. FileRequest [ 
file: NIL, access: SegmentDef s .Read, link:, 
body: short[fill:, name: "Swatee. "]] ; 

Swappable: BOOLEAN; 

puntData: PuntTable; 

MesaCoreFH: SegmentDefs.FileHandle <- NIL; 

FindFiles: PROCEDURE « 
BEGIN OPEN ControlDefs; 
f: SegmentDef s.FileHandle; 
s: SegmentDefs.FileSegmentHandle; 

puntData. puntESV. reason <- punt; 

puntData. puntESV. tables ♦- BootDef s.GetSystemTable[]; 

puntData. puntESV. extension. loadstate ♦- s ^ LoadStateDefs.GetLoadState[]; 

puntData. puntESV. loadstateCFA.fp <- s.file.fp; 

puntData. puntESV. loadstateCFA. fa <- [page: s.base, 

byte: 0, da: SegmentDef s .GetFileSegmentDA[s]] ; 
puntData. puntESV. 1 spages <- s. pages; 
puntData. pDebuggerFP ^ puntData. pCoreFP <- LOOPHOLE[03; 

Swappable <- TRUE; 

IF (f <- CoreFileRequest. file) = NIL THEN 

IF (f ^ SwatFileRequest. file) = NIL THEN 
Swappable <- FALSE 

ELSE NULL 
ELSE IF SwatFileRequest. file # NIL THEN 

SegmentDef s .ReleaseFile[SwatFileRequest.f ile] ; 
IF Swappable THEN 

BEGIN OPEN DiskDefs, SegmentDefs; 

ENABLE ANY => GOTO bad; 

LockFile[puntData. puntESV. drumFile <- MesaCoreFH *- f]; 

s ^ NewFileSegment[f, 1,1, Read]; 

BFSDefs.MakeCFP[@puntData.coreFP.0f .fp]; 

puntData. coreFP.leaderDA *- L00PHOLE[RealDA[GetFileSegmentDA[s]]]; 

puntData. pCoreFP ♦- QpuntData.coreFP; 

DeleteFileSegment[s]; 

IF (f <r DebuggerFileRequest. file) = NIL THEN GOTO bad; 

s ^ NewFileSegment[f, 1,1, Read]; 

BFSDefs.MakeCFP[0puntData.debuggerFP,0f .fp]; 

puntData. debuggerFP.leaderDA <- LOOPHOLE[RealDA[GetFileSegmentDA[s]]]; 

puntData. pDebuggerFP *- @pun tData. debuggerFP; 

DeleteFileSegment[s] ; 

Puntlnfot 4- @puntData; 

EXITS 

bad => Swappable *- FALSE; 

END; 
puntData. puntESV. drumFile <- MesaCoreFH; 
RETURN 
END; 

RequestFiles: PROCEDURE « 
BEGIN 

DebuggerFileRequest. file ♦- NIL; 
CoreFileRequest, file <- NIL; 
SwatFileRequest .file ^ NIL; 

ImageDef s .AddFileRequest[@DebuggerFileRequest]; 
ImageDef s .AddFileRequest[@CoreFileRequest]; 
ImageDef s .AddFileRequest[@SwatFileRe quest]; 
END; 

Cleanupltem: ImageDef s.CleanupItem <- [link:, proc: CleanupNub, 

mask: ImageDef s .CleanupMask[Save] + ImageDeFs .CleanupMask[Restore]]; 
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CleanupNub: ImageDefs.CleanupProcedure » 
BEGIN 
SELECT why FROM 

Save •=> RequestFiles[]; 

Restore «> FindFilesC]; 

ENDCASE; 
END; 

CallDebugger: PROCEDURE [s: STRING] ■ 
BEGIN -- user's entry point to debugger 
state: ControlDef s .StateVector; 
state <- STATE; 
state. stk[0] ♦- s; 
state. stkptr <- 1; 

state. dest <- Contro1Defs.GetReturnLinl<[]; 
CoreSwap[expl icitcall , ©state]; 
RETURN 
END; 

SetSD: PROCEDURE « 
BEGIN OPEN SDDefs; 

sd: POINTER TO ARRAY [0..0) OF UNSPECIFIED ^ ControlDef s .SD; 
sd[sProcessBreakpoint] <- ProcessBreakpoint; 
sd[sUncaughtSigna1 ] <- Catcher; 
sd[slnterrupt] ♦- Interrupt; 
sd[sCanDebugger] +- CallDebugger; 
END; 

-- Main body 

P: TYPE = MACHINE DEPENDENT RECORD [in, out: UNSPECIFIED]; -- PORT 

LOOPHOLE[DoSwap,P] <- [in: 0, out: ControlDef s .SD[SDDefs .sCoreSwap]] ; 
RequestFiles[]; 

START user; 

STOP; 

BEGIN 

ENABLE ANY => ImageDef s . PuntMesa; 
FindFiles[]; 
InitBreakBlocks[]; 
SetSD[]; 

FrameDefs.UnNew[LOOPHOLE[NucleusDefs.Wart]]; 
END; 

ImageDef s .AddCleanupProcedure[0CleanupItem]; 

RESTART user [1 ProcessDefs .Aborted, CAbort => CONTINUE]; 

ImageDef s.StopMesa[]; 

END. . . 



